home *** CD-ROM | disk | FTP | other *** search
/ Amiga Arena Homepage / Amiga Arena Homepage CD Rom Edition.iso / Programme / Demoversionen / Anwender / ImEngV3.41p1 / Install_Part_1 < prev    next >
Text File  |  1997-02-07  |  4KB  |  128 lines
  1. ; Install Image Engineer 3.41 part 1
  2. ; © 1995-1997 Simon Edwards
  3. ; This script installs the first archive of Image Engineer 3.41
  4. ; Checks for need libraries, OS version CPU, and adds an assign to user-startup.
  5.  
  6. (transcript "Installing Image Engineer part 1...")
  7.  
  8. (set #intromsg (cat "\nThis installs the first part of Image "
  9.             "Engineer V3.41 on your hard disk and checks your "
  10.             "Kickstart, CPU, and installed libraries."))
  11.  
  12. (message #intromsg)
  13.  
  14. (set defaultdest @default-dest)
  15.  
  16.     ;Check for a previous installation.
  17. (if (not (= (exists "IE:" (noreq)) 0))
  18.     (
  19.     (set oldiepath (expandpath "IE:"))
  20.     (set newoldiepath (tackon (pathonly oldiepath)
  21.                         ("Old%s" (fileonly oldiepath))))
  22.  
  23.     (message (cat "An already existing version of Image Engineer "
  24.     ("has been found at:-\n\n%s\n\n" oldiepath))
  25.     ("I will rename this to:-\n\n%s\n\n" newoldiepath)
  26.     "You may delete the old directory afterwards if you choose."
  27.     )
  28.  
  29.     (set defaultdest (pathonly oldiepath))
  30.     (rename oldiepath newoldiepath)
  31.     (rename ("%s.info" oldiepath) ("%s.info" newoldiepath))
  32.  
  33.     )
  34. )
  35.  
  36.     ;Check to see what version of the OS we're running on.
  37. (if (< (/ (getversion) 65536) 37)
  38.     (
  39.     (if (<> 1 (askbool (help @askbool-help) (prompt (cat
  40.         "You must be using Kickstart 2.04+ to run Image Engineer.\n\n"
  41.         "Do you wish to continue anyway?\n"))))
  42.  
  43.         (
  44.         (abort "Aborting as the Kickstart is not sufficient.")
  45.         )
  46.     )
  47.     )
  48. )
  49.  
  50.  
  51.     ; Check to see what CPU we're running on.
  52. (if (>= 68020 (database "cpu"))
  53.     (
  54.     (if (<> 1 (askbool (help @askbool-help) (prompt (cat
  55.                     "\nYou need a 68020 CPU or better to run Image Engineer.\n"
  56.                     "\nDo you wish to continue anyway?\n"))))
  57.         (
  58.         (abort "Aborting as the CPU is not sufficient.")
  59.         )
  60.     )
  61.     )
  62. )
  63.  
  64.     ;Check to see if superview.library is installed.
  65. (if (not (exists "LIBS:superview.library"))
  66.     (
  67.     (if (<> 1 (askbool (help @askbool-help) (prompt     
  68.         (cat    "\nYou don't seem to have the Superview library installed\n"
  69.             "on your system.  Image Engineer needs at least V15.0\n"
  70.             "of superview.library in order to run.\n\n"
  71.             "Do you wish to continue anyway?\n"))))
  72.             (
  73.  
  74.             (abort (cat
  75.                 "Aborting...\n\n"
  76.                 "The latest version of superview.library\n"
  77.                 "should be available from an Aminet site\n"
  78.                 "or PD library near you.\n"))
  79.             )
  80.  
  81.     )
  82.     )
  83. )
  84.  
  85.     ;Check for BGUI.library V41.1
  86. (copylib (prompt "Copying new BGUI.library") (help @copyfiles-help) 
  87. (source (tackon (pathonly @icon) "Libs/bgui.library")) (dest "LIBS:"))
  88.  
  89.     ;Get the destination directory from the user
  90. (set wheredir
  91.     (askdir
  92.     (prompt "Select a directory where you would like to install "
  93.         "Image Engineer. (A drawer will be created there)")
  94.     (help @askdir-help)
  95.     (default defaultdest)
  96.     )
  97. )
  98.  
  99.     ;Create the directory for Image Engineer
  100. (set wheredir (tackon wheredir "ImageEngineerV3.41"))
  101. (makedir wheredir (infos))
  102.  
  103.  
  104. (working "Installing Image Engineer...")
  105.     ;Copy all of the files over to the destination
  106. (copyfiles
  107.     (prompt "")
  108.     (help @copyfiles-help)
  109.     (pattern "~(Install_Part_1|Install_Part_1.info|Libs|Libs.info)")
  110.     (infos)
  111.     (source (pathonly @icon))
  112.     (dest wheredir)
  113. )
  114.  
  115.     ;Add an assign to user startup
  116. (startup "IMAGEENGINEER"
  117.     (prompt "I need to add an assign to your\n\"s:user-startup\" file.")
  118.     (help @startup-help)
  119.     (command ("assign IE: \"%s\"\n" wheredir))
  120. )
  121.  
  122. (makeassign "IE" wheredir)
  123.  
  124. (exit (cat
  125.     "Please remember to install the second part (ImEngV3.41p2.lha) "
  126.     "of Image Engineer V3.41 before trying to run it."))
  127.  
  128.